home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / workbench+shell / q-z / wbstartup+v2.1 / install < prev    next >
Encoding:
Text File  |  1995-09-24  |  2.5 KB  |  97 lines
  1. ;
  2. ; $PROJECT: WBStartup+
  3. ;
  4. ; (C) Copyright 1995 John Hughes.  All Rights Reserved.
  5. ;
  6.  
  7.  
  8. (
  9.   (working "Installing WBStartup+")
  10.  
  11.  
  12.   (if (exists "SYS:WBStartup/WBStartup+")
  13.     ( ; UPGRADE PREVIOUS VERSION
  14.       (message "A previous version of WBStartup+ has been found.  I will upgrade your version.")
  15.     )
  16.     ( ; INSTALL FOR THE FIRST TIME
  17.       ; Moving the WBStartup files safely
  18.       (
  19.         (rename "SYS:WBStartup" "SYS:WBStartup.temp")
  20.         (makedir "SYS:WBStartup")
  21.         (rename "SYS:WBStartup.temp" "SYS:WBStartup/WBStartup (Enabled)")
  22.       )
  23.  
  24.       ; Creating Disabled Directory
  25.       (makedir "SYS:WBStartup/WBStartup (Disabled)")
  26.     )
  27.   )
  28.  
  29.       ; Copying icon
  30.       (copyfiles
  31.         (prompt "Copying the Enabled icon")
  32.         (source "icons/Enabled_Icon.info")
  33.         (dest "SYS:WBStartup")
  34.         (newname "WBStartup (Enabled).info")
  35.       )
  36.  
  37.       ; Copying icon
  38.       (copyfiles
  39.         (prompt "Copying the Disabled icon")
  40.         (source "icons/Disabled_Icon.info")
  41.         (dest "SYS:WBStartup")
  42.         (newname "WBStartup (Disabled).info")
  43.       )
  44.  
  45.       ; Copy WBStartup+
  46.       (if (< (/ (getversion) 65536) 39)  ;if this is OS2.x
  47.         ; Copy WBStartup+ for OS2.x
  48.         (copyfiles
  49.           (prompt "Copying the WBStartup+ Executable for OS2.x")
  50.           (help @copyfiles-help)
  51.           (source "OS2.x/WBStartup+")
  52.           (dest "SYS:WBStartup")
  53.           (infos)
  54.         )
  55.         (
  56.           ; else, copy WBStartup+ and WBStartup+Prefs for OS3.x users
  57.  
  58.           ; Copy WBStartup+ for OS3.x
  59.           (copyfiles
  60.             (prompt "Copying the WBStartup+ Executable for OS3.x")
  61.             (help @copyfiles-help)
  62.             (source "OS3.x/WBStartup+")
  63.             (dest "SYS:WBStartup")
  64.             (infos)
  65.           )
  66.           ; Copy WBStartup+Prefs for OS3.x users
  67.           (copyfiles
  68.             (prompt "Copying the WBStartup+Prefs Executable for OS3.x")
  69.             (help @copyfiles-help)
  70.             (source "OS3.x/WBStartup+Prefs")
  71.             (dest "SYS:Prefs")
  72.             (confirm)
  73.             (infos)
  74.           )
  75.         )
  76.       )
  77.  
  78.       ; install AmigaGuide file
  79.       (copyfiles
  80.         (prompt "Copying AmigaGuide file")
  81.         (help @copyfiles-help)
  82.         (source "WBStartup+.guide")
  83.         (dest "AmigaGuide:")
  84.         (confirm)
  85.       )
  86.  
  87.       ; install WBStart-Handler to L:
  88.       (copylib
  89.         (prompt "Copying AmigaGuide file")
  90.         (help @copylib-help)
  91.         (source "L/WBStart-Handler")
  92.         (dest "L:")
  93.       )
  94.  
  95.     (set @default-dest "SYS:WBStartup")
  96. )
  97.